home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_3.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  975 b   |  39 lines

  1. on enterFrame
  2.   global decouvrirMenu
  3.   set ActiveStartspr to 3
  4.   set Decouvrir to ActiveStartspr
  5.   set startBalls to 4
  6.   set reseauxBall to startBalls
  7.   set supportsPhysiquesBall to startBalls + 1
  8.   set genealogieBall to startBalls + 2
  9.   set convergenceMediasBall to startBalls + 3
  10.   set inforouteChezVousBall to startBalls + 4
  11.   set servicesReseauxBall to startBalls + 5
  12.   set revolutionNumeriqueBall to startBalls + 6
  13.   set ro to rollOver()
  14.   case ro of
  15.     Decouvrir:
  16.       go(the frame)
  17.     reseauxBall:
  18.       go("reseauxOpen")
  19.     supportsPhysiquesBall:
  20.       go("supportsPhysiquesOpen")
  21.     genealogieBall:
  22.       go("genealogieOpen")
  23.     convergenceMediasBall:
  24.       go("convergenceMediasOpen")
  25.     inforouteChezVousBall:
  26.       go("inforouteChezVousOpen")
  27.     servicesReseauxBall:
  28.       go("servicesReseauxOpen")
  29.     revolutionNumeriqueBall:
  30.       go("revolutionNumeriqueOpen")
  31.     otherwise:
  32.       go("decouvrirClose")
  33.   end case
  34. end
  35.  
  36. on exitFrame
  37.   go(the frame)
  38. end
  39.